home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
patches
/
pgs3f.lha
/
3.0fUpdate
/
Macros.LHA
/
cmdshell.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-04-20
|
2KB
|
60 lines
/*
* cmdshell.rexx
*
* This opens up a console window so the user can send arexx commands directly to an application.
*
*/
options results
options failat 100
open('console', 'CON:0/11/640/100/PageStream3/SCREEN PageStream3', 'RW')
writeln('console', 'Enter commands, "Q" to exit.')
address 'PAGESTREAM'
/* loop until user exits */
do forever
/* get command string from user */
writech('console','CMD> ')
cmd=readln('console')
select
/* time to quit? */
when (upper(cmd) = "Q") then do
leave
end
/* need some help? */
when (cmd = "?") then do
writeln('console', 'Enter "Q" to exit.')
end
/* do nothing on empty lines */
when (cmd = "") then do
nop
end
/* process the line */
otherwise do
/* execute the command string */
cmd
/* if ok show the result, if any */
if (RC = 0) then do
if result ~= "RESULT" then writeln('console', result)
if (upper(cmd) = "QUIT") then leave
end
else do
writeln('console', '*** Error');
end
end
end
end
exit(0)